home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / dutch_fn / sumarr.c < prev    next >
Text File  |  1988-06-23  |  395b  |  24 lines
  1. #include "jplib.h"
  2.  
  3. CLIPPER sumarr()
  4. {
  5.    if (ISARRAY(1) && ISARRAY(2))
  6.    {
  7.       quant i;
  8.       quant alength;
  9.  
  10.       alength = (quant) min(ALENGTH(1), ALENGTH(2));
  11.  
  12.       for (i=1; i <= alength; i++)
  13.       {
  14.          if (_parinfa(1, i) == _parinfa(2, i) == NUMERIC)
  15.             _retnd(1, _parnd(1, i) + _parnd(2, i));
  16.       }
  17.    }
  18.    else
  19.       _ret();
  20.  
  21.    return;
  22. }
  23.  
  24.